MacFormat España 4/MacFormat n. 4 (Spain)/MacFormat 4.bin/Demos/DiscoverIndia Demo/OnMove.dir/00003.ls

Text File | 1995-03-28 | 542 b | 25 lines

on stepMovie
  if not rollOver(24) then
    exit
  end if
  puppetSprite(24, 1)
  set the castNum of sprite 24 to the number of cast "Redhand"
  updateStage()
  set exitFlag to 0
  repeat while rollOver(24)
    if the mouseDown then
      if soundBusy(1) then
        sound fadeOut 1, 2 * 60
      end if
      set exitFlag to 1
      exit repeat
    end if
  end repeat
  if exitFlag then
    go("QuitReturnPlusOne", "Shiva.dir")
  else
    set the castNum of sprite 24 to the number of cast "Whitehand"
    puppetSprite(24, 0)
  end if
end